Gopher Proxy
gopher.conman.org:70 gopher.conman.org:70/0Boston:Src:Lua/arch.lua
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#!/usr/bin/env lua
-- ************************************************************************
-- Copyright 2018 by Sean Conner. All Rights Reserved.
--
-- This program is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; either version 2
-- of the License, or (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
--
-- Comments, questions and criticisms can be sent to: sean@conman.org
--
-- ************************************************************************
-- luacheck: ignore 611
local lpeg = require "lpeg"
local CONF = setmetatable({},{ __index = _G })
local g_start
local g_end
-- ***********************************************************************
do
local number = lpeg.R"09"^1 / tonumber
local parse_date = lpeg.Ct(
lpeg.Cg(number,"year") * lpeg.P"/" *
lpeg.Cg(number,"month") * lpeg.P"/" *
lpeg.Cg(number,"day") * lpeg.P"." *
lpeg.Cg(number,"part")
)
local function getdate(fname)
local name = CONF.basedir .. "/" .. fname
local f = io.open(name,"r")
local d = f:read("*a")
f:close()
return parse_date:match(d)
end
local fname = arg[1] or os.getenv "BLOG_CONFIG" or "blog.conf"
if _VERSION == "Lua 5.1" then
local chunk = loadfile(fname)
setfenv(chunk,CONF)
chunk()
else
local chunk = loadfile(fname,"t",CONF)
chunk()
end
setmetatable(CONF,nil)
g_start = getdate(".first")
g_end = getdate(".last")
end
-- ***********************************************************************
local function anyposts(year,month)
for day = 1 , 31 do
local fname = string.format("%s/%04d/%02d/%02d/1",CONF.basedir,year,month,day)
local f = io.open(fname,"r")
if f then
f:close()
return true
end
end
return false
end
-- ***********************************************************************
local results = {}
for year = g_start.year , g_end.year do
results[year] = {}
for month = 1 , 12 do
results[year][month] = anyposts(year,month)
end
end
for year = g_start.year , g_end.year , 6 do
for y = year , year + 5 do
if not results[y] then
results[y] =
{
false , false , false , false , false , false ,
false , false , false , false , false , false ,
}
end
end
end
for year = g_start.year , g_end.year , 6 do
local out = io.popen("table","w")
local header = {}
for y = year , year + 5 do
table.insert(header,tostring(y))
end
header[1] = "*" .. header[1]
out:write(table.concat(header,"\t"),"\n")
for month = 1 , 12 do
local entry = {}
for y = year , year + 5 do
if results[y][month] then
local date = os.time { year = y , month = month , day = 1 }
local line = os.date([[<a class="local" href="/%Y/%m">%B</a>]],date)
table.insert(entry,line)
else
local date = os.time { year = y , month = month , day = 1 }
local line = os.date([[%B]],date)
table.insert(entry,line)
end
end
out:write(table.concat(entry,"\t"),"\n")
end
out:close()
print("<p></p>")
end
os.exit(0)
.
you're on gopher.conman.org^70/0Boston:Src:Lua/arch.lua
back link is gopher.conman.org:70/1Boston:Src:Lua/